home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / graphics / qpeg11c.zip / TRI8900.ASM < prev    next >
Assembly Source File  |  1993-10-14  |  687b  |  46 lines
  1. ;
  2. ; QPEG video driver
  3. ; for Trident 8900 and 9000 chipsets
  4. ;
  5.  
  6.     .286
  7. Code    Segment Para 'Code'
  8.         Assume  cs:Code
  9.     Org 100h
  10.  
  11. Procs   dw      Bank,Init,Exit,0
  12.  
  13. Bank:   push    ax
  14.     mov     al,0eh
  15.     mov     dx,03c4h
  16.     out     dx,al
  17.     inc     dx
  18.     pop     ax
  19.     xor     al,02h
  20.     out     dx,al
  21.     retf
  22.  
  23. Init:   mov     dx,3ceh         ; set pagesize to 64k
  24.     mov     al,6
  25.     out     dx,al
  26.     inc     dl
  27.     in      al,dx
  28.     dec     dl
  29.     or      al,4
  30.     mov     ah,al
  31.     mov     al,6
  32.     out     dx,ax
  33.     mov     dl,0c4h         ; switch to BPS mode
  34.     mov     al,0bh
  35.     out     dx,al
  36.     inc     dl
  37.     in      al,dx
  38.     retf
  39.  
  40. Exit:   retf
  41.  
  42. Code    Ends
  43.     End Procs
  44.  
  45. ; End of source.
  46.